﻿Public Class CharacterSkill
    Private _ID As Integer = -1
    Private _name As String
    Private _desc As String

    Public Property ID() As Integer
        Get
            Return _ID
        End Get
        Set(ByVal value As Integer)
            _ID = value
        End Set
    End Property

    Public Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property

    Public Property Description() As String
        Get
            Return _desc
        End Get
        Set(ByVal value As String)
            _desc = value
        End Set
    End Property

    Public Function IsValid() As Boolean
        If _name = "" Or _desc = "" Then
            Return False
        Else
            Return True
        End If
    End Function
End Class